home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue51 / Construc / WebMod51.dfm < prev    next >
Text File  |  1999-09-27  |  7KB  |  223 lines
  1. object WebModule2: TWebModule2
  2.   OldCreateOrder = False
  3.   Actions = <
  4.     item
  5.       Default = True
  6.       Name = 'WebActionItem1'
  7.       OnAction = WebModule2WebActionItem1Action
  8.     end>
  9.   Left = 323
  10.   Top = 186
  11.   Height = 346
  12.   Width = 524
  13.   object DCOMConnection1: TDCOMConnection
  14.     ServerGUID = '{A2A63DA5-7257-11D3-BE12-00104BF89DAD}'
  15.     ServerName = 'Server51.TDM'
  16.     Left = 72
  17.     Top = 32
  18.   end
  19.   object XMLBroker1: TXMLBroker
  20.     MaxRecords = 3
  21.     Params = <>
  22.     ProviderName = 'CustomerOrdersProvider'
  23.     RemoteServer = DCOMConnection1
  24.     WebDispatch.PathInfo = 'XMLBroker1'
  25.     OnRequestRecords = XMLBroker1RequestRecords
  26.     ReconcileProducer = ReconcilePageProducer1
  27.     Left = 72
  28.     Top = 96
  29.   end
  30.   object CustomerOrdersMidasPageProducer: TMidasPageProducer
  31.     HTMLDoc.Strings = (
  32.       '<HTML>'
  33.       '<HEAD>'
  34.       '</HEAD>'
  35.       '<BODY>'
  36.       '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
  37.       '</BODY>'
  38.       '</HTML>')
  39.     Left = 80
  40.     Top = 168
  41.     object QueryForm1: TQueryForm
  42.       Action = 
  43.         'http://192.168.91.201/cgi-bin/Client51.exe/CustomerOrdersMidasPa' +
  44.         'geProducer'
  45.       Method = fmGet
  46.       object QueryFieldGroup1: TQueryFieldGroup
  47.         object HiddenRecNo: TQueryHiddenText
  48.           Text = '0'
  49.         end
  50.       end
  51.       object QueryButtons1: TQueryButtons
  52.         object NextXMLPacketButton: TSubmitQueryButton
  53.           Caption = 'Next XML Packet'
  54.           XMLComponent = QueryForm1
  55.         end
  56.       end
  57.     end
  58.     object DataForm1: TDataForm
  59.       object ImgDataNavigator1: TImgDataNavigator
  60.         XMLComponent = FieldGroup1
  61.         ImagePathURL = 'http://192.168.91.201/images/'
  62.       end
  63.       object FieldGroup1: TFieldGroup
  64.         XMLBroker = XMLBroker1
  65.         object CustNo: TFieldText
  66.           DisplayWidth = 10
  67.           Caption = 'CustNo'
  68.           FieldName = 'CustNo'
  69.         end
  70.         object Company: TFieldText
  71.           DisplayWidth = 30
  72.           Caption = 'Company'
  73.           FieldName = 'Company'
  74.         end
  75.         object Addr1: TFieldText
  76.           DisplayWidth = 30
  77.           Caption = 'Addr1'
  78.           FieldName = 'Addr1'
  79.         end
  80.         object City: TFieldText
  81.           DisplayWidth = 15
  82.           Caption = 'City'
  83.           FieldName = 'City'
  84.         end
  85.         object State: TFieldText
  86.           DisplayWidth = 20
  87.           Caption = 'State'
  88.           FieldName = 'State'
  89.         end
  90.         object Zip: TFieldText
  91.           DisplayWidth = 10
  92.           Caption = 'Zip'
  93.           FieldName = 'Zip'
  94.         end
  95.         object Country: TFieldText
  96.           DisplayWidth = 20
  97.           Caption = 'Country'
  98.           FieldName = 'Country'
  99.         end
  100.         object Contact: TFieldText
  101.           DisplayWidth = 20
  102.           Caption = 'Contact'
  103.           FieldName = 'Contact'
  104.         end
  105.         object FieldStatus1: TFieldStatus
  106.           Caption = '*'
  107.         end
  108.       end
  109.       object ImgDataNavigator2: TImgDataNavigator
  110.         XMLComponent = DataGrid1
  111.         ImagePathURL = 'http://192.168.91.201/images/'
  112.       end
  113.       object DataGrid1: TDataGrid
  114.         XMLBroker = XMLBroker1
  115.         XMLDataSetField = 'OrdersTable'
  116.         object OrderNo: TTextColumn
  117.           DisplayWidth = 10
  118.           Caption = 'OrderNo'
  119.           FieldName = 'OrderNo'
  120.         end
  121.         object CustNo2: TTextColumn
  122.           DisplayWidth = 10
  123.           Caption = 'CustNo'
  124.           FieldName = 'CustNo'
  125.         end
  126.         object SaleDate: TTextColumn
  127.           DisplayWidth = 18
  128.           Caption = 'SaleDate'
  129.           FieldName = 'SaleDate'
  130.         end
  131.         object ShipDate: TTextColumn
  132.           DisplayWidth = 18
  133.           Caption = 'ShipDate'
  134.           FieldName = 'ShipDate'
  135.         end
  136.         object ShipVIA: TTextColumn
  137.           DisplayWidth = 7
  138.           Caption = 'ShipVIA'
  139.           FieldName = 'ShipVIA'
  140.         end
  141.         object ItemsTotal: TTextColumn
  142.           DisplayWidth = 10
  143.           Caption = 'ItemsTotal'
  144.           FieldName = 'ItemsTotal'
  145.         end
  146.         object AmountPaid: TTextColumn
  147.           DisplayWidth = 10
  148.           Caption = 'AmountPaid'
  149.           FieldName = 'AmountPaid'
  150.         end
  151.         object StatusColumn1: TStatusColumn
  152.           Caption = '*'
  153.         end
  154.       end
  155.     end
  156.   end
  157.   object ReconcilePageProducer1: TReconcilePageProducer
  158.     HTMLDoc.Strings = (
  159.       '<HTML>'
  160.       '<HEAD>'
  161.       '</HEAD>'
  162.       '<BODY>'
  163.       '<#INCLUDES><#STYLES><#WARNINGS>'
  164.       '<P>'
  165.       '<FORM name="FORM1">'
  166.       '<TABLE>'
  167.       '<TR>'
  168.       '<TD valign=top><H3>Error message:</H3></TD>'
  169.       
  170.         '<TD valign=top><textarea name="ErrMessage" rows=2 cols=58 readon' +
  171.         'ly onfocus='#39'blur();'#39'></textarea></TD>'
  172.       '<TD valign=top><H3>on</H3></TD>'
  173.       
  174.         '<TD valign=top><input type=text name="ErrAction" size=12 readonl' +
  175.         'y onfocus='#39'blur();'#39'/></TD>'
  176.       '</TR>'
  177.       '</TABLE>'
  178.       '<P>'
  179.       '<#RECONCILEGRID>'
  180.       '</FORM>'
  181.       '<P>'
  182.       '<FORM>'
  183.       '<H3> Reconcile Action </H3>'
  184.       
  185.         '<input type=radio name="action" value="Cancel" onclick='#39'if(self.' +
  186.         'grid1!=null)grid1.cancel();'#39'/> Cancel'
  187.       
  188.         '<input type=radio name="action" value="Correct" onclick='#39'if(self' +
  189.         '.grid1!=null)grid1.correct();'#39'/> Correct'
  190.       
  191.         '<input type=radio name="action" value="Merge" onclick='#39'if(self.g' +
  192.         'rid1!=null)grid1.merge();'#39'/> Merge'
  193.       '<P>'
  194.       
  195.         '<input type=button value="<" onclick='#39'if(self.grid1!=null)grid1.' +
  196.         'up();'#39' />'
  197.       
  198.         '<input type=button value=">" onclick='#39'if(self.grid1!=null)grid1.' +
  199.         'down();'#39' />'
  200.       
  201.         '<input type=button value="Post/Next" onclick='#39'if(self.grid1!=nul' +
  202.         'l)grid1.post();'#39'/>'
  203.       '<P>'
  204.       
  205.         '<input type=button value="Reapply Updates" onclick='#39'if(self.grid' +
  206.         '1!=null)grid1.Reapply(Submitfrm1, Submitfrm1.postdelta);'#39'/>'
  207.       '</FORM>'
  208.       '<#FORMS><#SCRIPT>'
  209.       '</BODY>'
  210.       '</HTML>')
  211.     ReconcileGrid.ConflictingColumn.Caption = 'Conflicting Value'
  212.     ReconcileGrid.ConflictingColumn.DisplayWidth = 24
  213.     ReconcileGrid.FieldNameColumn.Caption = 'Field Name'
  214.     ReconcileGrid.FieldNameColumn.DisplayWidth = 18
  215.     ReconcileGrid.ModifiedColumn.Caption = 'Submitted Value'
  216.     ReconcileGrid.ModifiedColumn.DisplayWidth = 24
  217.     ReconcileGrid.OriginalColumn.Caption = 'Original Value'
  218.     ReconcileGrid.OriginalColumn.DisplayWidth = 24
  219.     Left = 192
  220.     Top = 96
  221.   end
  222. end
  223.